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MODULE FREEPG (LANGUAGE Bh SS 38) ’ 
— = 'v04-000' 
= 


BEGIN 


LR RR EERE A RARER AAR E EEE EEE EERE REAR AE RARER 
'@ * 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
i? ALL RIGHTS RESERVED. * 
'@ * 
't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'w ONLY IN ACCORDANCE WITH THE R OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

'w TRANSFERRED. * 
® 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
* 

* 

* 

ty 

t 

® 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VR R RARER RRR AERERRERAEEERAEEEAEAAEEAEAAEAAAEAEAERAAAAARAAERARERRERKEEREE 


14+ 
4 


FACILITY: MTAACP 


i ABSTRACT: 
: This module handles the requesting and returning of virtual pages. 


i 
ENVIRONMENT : 


: Starlet operating system, including privileged system services 
and internal exec routines. 
i 


t 
i 
AUTHOR: D. H. GILLESPIE, CREATION DATE: 9=-JUN-77 
i MODIFIED BY: 

: v02-004 pmw00023 David Michael Walp 17-Jul-1981 

: Included change shipped with 2.4 plus improvements. Added 
additional comments through out the module. 

' 


V02-002 REFORMAT Maria del C. Nasr 30-Jun-1980 
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$ } LIBRARY *SYSSLIBRARY:L1B.L32"; 
Me ] REQUIRE "SRCS:MTADEF .832"; 
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GLOBAL ROUTINE GET_FREE_PAGE (PAGES, ADDR) : COMMON_CALL NOVALUE = 


'o+ 


' 
FUNCTIONAL DESCRIPTION: 
This routine gets the requested number of contiguous pages from 


CALLING SEQUENCE: 
GET_FREE_PAGE (ARG1,ARG2) 
INPUT PARAMETERS: 
ARG] = number of pages 
ARG2 = address of long word in which to return address of free page 


IMPLICIT INPUTS: 
FREE_PAGE_HEAD = head of free_page List 
LAST_PAGE - last page of virtual memory 


OUTPUT PARAMETERS: 
ARG2 = address of long word in which to return address of free page 


IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 

SIDE EFFECTS: 
none 


. 
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te 
. 


BEGIN 

EXTERNAL REGISTER 
COMMON_REG; 

EXTERNAL 
FREE_PAGE_HEAD : REF BBLOCK, ! free page List head 
LAST_PAGE; ! address of last page 


EXTERNAL ROUTINE 
SYSSEXPREG : ADDRESSING_MODE (ABSOLUTE); ! expand region 


LOCAL 


SIZE 
FPAGE : VECTOR (2), 
TOOBIG : REF BBLOCK: 


' number of bytes requested 
' page references 

' address of space which is 
! bigger than need be 


BIND 
FREEPAGE = ner : REF BBLOCK, 
ENDADDR = FPAGE[1); 


TOOBIG = 0; ! initialize 


y$-Sep-1984 08:19:0)  yAN-11 Bliss 


the free page list. If none are available, it expands virtual memory. 
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FREEP 16-Sep-1984 02:19: AX-11 Bliss-32 V4.0-742 P 4 
voe 1exee=} 88s PS:13:9) «HANA AL Bk isso 32 h-05 742 o0e 12) 
0 SIZE = 512*. PAGES; ' number of bytes requested 
5 ; FREEPAGE = .FREE PAGE_HEAD; i pickup first tree page 
5 ! Look down the freepage List for a region of the correct or yy size. 
05 $ ! If we find a region of the correct size return it. Remember the first 
50 : chuck which is too big, it will be cut down if we do not find a page of 
205 H the correct size 
51 WHILE .FREEPAGE NEQA FREE_PAGE_HEAD DO 
2} BEGIN 
51 IF .SIZE EQLU .FREEPAGECFVPS$W_SIZE) 
Ba THEN 
051 ! we found a section of the correct size, remove it from the List 
051 ! and return it 
051 BEGIN 
051 REMQUE(.FREEPAGE, .ADDR); 
05 RETURN; 


A ae LSSU .FREEPAGECFVPS$W_SIZE) 


cut up if needed, then remember this on 
if .T00B1G EQLA 0 THEN TOOBIG = .FREEPAGE; 
EReePnee = .FREEPAGECFVPSL_FORWARD); 


WN "SO OONAULSWN “OVO ONOUSWN oO 


IF .TOOBIG NEQ 0 
THEN 


! if there is entry that is too big, leave it in the free page list but 
! make it smaller and use the end of the block to satisfy the request 


PPA AAAAVIN E BBE EEE EE EW 


SOAAOOOAO 


j.- «SIZE; 
ELSE 
} otherwise expand the region and update last page pointer 


BEGIN 

IF NOT SYSSEXPREG(.PAGES, FREEPAGE, EXEC_MODE, 0) 
ERR_EXIT(SS$_ACPVAFUL); 

LAST _PAGE = .ENDADDR; 


.ADDR = .FREEPAGE; 
FREEPAGELF VP w_SIZE) = .SIZE; 
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HEN 
! this space is too big. so if we do not already have a chuck to 
e 
| 
| 
| 
| 
| 
| 
! end of routine 
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; Routine Size: 


=1386 9g: 13:9) Yared Bliss-32 V4.0-74 


<" 


TAACP. SRC JFREEPG.B32; 


\Vb4=600\ 


SYS 
SCODES ,NOWRT ,2 


ee,” 
tobe] 

PAGES, SIZE 
FREE PAGE. HEAD 
REEPAG 
REE_PAGE_HEAD, R2 
\ R2 
#0, #16, 8(R1), SIZE 
(R1), @ADDR 


FREEPAGE, R1 
#0, #16, 8(R1), SIZE 


TOOBIG 


R1, TOOBIG 
1), FREEPAGE 


Nala" 
es mm 


00816) 
RI 

6, FREEPAGE 
6 

#4, @#SYSSEXPREG 

RO, 6$ 

#764 

ENDADDR LAST PAGE 

FREEPAGE, R 


RO, @ADDR 
SIZE, 8(RO) 


FREE PAGE _HEAD, LAST_PAGE 
ExPREG 


OF TAEREE PAGE . Save R2,R3 
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14-Sep=1 6 93:18:95 MTAACP. SRCIFREEPG.B32; 


: 1? $9 ! GLOBAL ROUTINE RET_FREE_PAGE (ADDR,CONTRACT) : COMMON_CALL NOVALUE = 

: 181 $6 1 44 

s % ¢ 65 1! 

2 64 1 ! FUNCTIONAL DESCRIPTION: 

:.- 65 1! This routine returns a block of contiguous a to the free page list. 
; «4185 208 8: If specified and the page is the last page of virtual memory, then the 
; #186 B28 1! program section is contracted. Space is put back so that the highest 
: 187 568 1! address is at the tail of the queue. Contiguous memory is represented 
; is 0 $° : : by one free page block. 

: 130 p 71 1°! CALLING SEQUENCE: 

3 13) b25§ ; : RET_FREE_PAGE (ARG1,ARG2) 

; 198 0574 1 ! INPUT PARAMETERS: 

3 194 g2f2 1! ARG] = address of block to return 

; 13? 278 } } ARG2 = TRUE or FALSE value, signaling if we should try to contract PO 
3; 197 0378 1 ! IMPLICIT INPUTS: 

: 198 0579 1! The size of the block to be returned is contained in the block 

; 199 0580 1! structure. 

; 200 0581 1! 

H 01 beng 1 ! OUTPUT PARAMETERS: 

3 4 0585 1! none 

; 2 Beee 1! 

HY 04 0585 1 ! IMPLICIT OUTPUTS: 

3 +4 bes : f virtual memory is contracted, last_page is updated 

FH soe 0588 1 ! ROUTINE VALUE: 

; 208 B208 1! none 

; 209 590 1! 

; 210 0591 1 ! SIDE EFFECTS: 

: 211 §23¢ 1! none 

3 \¢ 0593 1! 

; 21 0594 1 !-- 

3: 214 0595 1 

s 215 D298 BEGIN 

3 1g 059 

- 2 0598 EXTERNAL REGISTER 

; 218 599 COMMON_REG; 

: 219 600 

; 20 01 EXTERNAL 

; 221 Bens FREE_PAGE_HEAD : REF BBLOCK, ! addr of free page List head 

3 § 0604 LAST_PAGE; ! addr of last page of virtual memory 
: 224 605 EXTERNAL ROUTINE 

3 5 36 SYSSCNTREG : ADDRESSING_MODE (ABSOLUTE); 

3 608 MAP 

; 3 rst ADDR : REF BBLOCK; ! address of virtual memory to return 
$ $3 11 OCAL 

: H 1 FREEPAGE : REF BBLOCK, ' address of free block 

: ¢ 1 NEXTPAGE : REF BBLOCK, ' address of next page 

; $2 i ENDFREE : REF BBLOCK; ! address of the Last free page block 
: 235 0616 ! make this block a free block 


iif 


: 


WAMMAMIAVIVIVIUT 
WDONOULWN— 


3 


Ao 
wn 


TUMRIMIMONUPORINOTofonuTononorngs 


SLSSELSARANLS SSNS AFAN=SSHIETAL 


oOo 
— 


SSSss. 
PARRA AAAAAAA AA AAA AAO 


WAWIW 


WN 9 DONO UE WIN O CONOUES WN OU 


SLSLSSSSE 


rs 


ooooo 

SAAS 

rs 
NAOUEWNOOONOUE 


SESE CO SORS 


o 


SSeS. 
oo 


Wwr—Owoo 


wm 


~~ 


~ 
Wr—OOe 


11 
1b-ge -1984 02:19: AX-11 Bliss-32 V4.0-74 
1 730071 38s 9551899 MIAACPr SRESFREEPG. 83274 
' 
ADDRLFVP$B_TYPE] = FVP_TYPE; 


' Search backwards a pe os queue. Insert this page so that the 
H highest address is at the end of the queue and all others are sorted. 


FREEPAGE = .(FREE_PAGE_HEAD + 4); 

WHILE .FREEPAGE NEQA FREE_PAGE_HEAD DO 
IF .ADDR GTRA .FREEPAGE THEN EXITLOOP; 
FREEPAGE = .FREEPAGELFVPSL_BACKWARDJ; 
END; ! end of while 


' the previous entry has been found or may have either no entries in queue 
or this is the lowest address 


NEXTPAGE = .FREEPAGE; 
} if not head of List calculate next entry addr 


iF .NEXTPAGE NEQA FREE_PAGE_HEAD 
THEN NEXTPAGE = .FREEPAGECFOPS$W_SIZE] + .NEXTPAGE; 


! previous or head of list 


if region being returned is contiguous after a currect entry in the List 
iF .NEXTPAGE EQLA .ADDR 
THEN 


append the new region to the old entry 

FREEPAGECFVP$W_SIZE] = .FREEPAGECFVPS$W_SIZE) + .ADDRCFVPS$W_SIZE) 
ELSE 

: if not contiguous put in queue and adjust FREEPAGE pointer 


BEGIN 
INSQUE(.ADDR, .FREEPAGE); 
FREEPAGE = . ADDR; 


] 
: now if entry contiguous with following one, merge them 


NEXTPAGE = .FREEPAGE + .FREEPAGECFVP$W_SIZE); 
is it contiguous with next entry? 
iF .NEXTPAGE EQLA .FREEPAGECFVPSL_FORWARDJ 


BEGIN 
remove next entry from queue 


<n" 
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: +4 ore REMQUE (.FREEPAGECFVPSL_FORWARDJ, NEXTPAGE); : 
3 95 676 t inc size of current entry ; 
; 39 A FREEPAGECFVP$W_SIZEJ = ,FREEPAGECFVPSW_SIZE] + .NEXTPAGECFVP$W_SIZE]; : 
: 569 $80 St 
; 4 ? 1 Should we try to contract the PO virtual address space of the ACP : 
; 0¢ 6 g if .CONTRACT ; 
; 30 0684 THEN $ 
; 4 Oe 5 BEGIN : 
; 306 687 ! get highest free area start address 3 
3; 307 0688 } ; 
; 308 +494 ENDFREE = .(FREE_ PAGE_HEAD + 4); $ 
; 09 9690 NEXTPAGE = .ENDFREE +”. ENDFREECFVP$W_SIZEJ - 1; ; 
: 314 069 IF .NEXTPAGE EQLA .LAST_PAGE ; 
$ \¢ 069 THE Fs 
3 6ST 0694 4 BEGIN $ 
: 314 0695 4 3 
3 315 0696 4 ! update last_page and remove last entry from queue ; 
; 316 0697 4 ! 3 
gs ST 0698 4 LAST PAGE = .ENDFREE - 1; F 
; 318 0699 4 REMQUE(.ENDFREE, ENDFREES; ; 
3 319 0700 4 F 
; 320 0701 4 ! give back the space 3 
3 se. 0702 4 ! 3 
3 $56 0703 4 NEXTPAGE = .ENDFREECFVP$W_SIZEJ/512; $ 
co 0704 4 IF NOT SYSSCNTREG(.NEXTPAGE, 0, EXEC_MODE, 0) : 
; #$¢ 0705 4 THEN $ 
3; 325 0706 4 BUG_CHECK(ACPVAFAIL); 3 
; 326 0707 4 ND 3 
3 Ser 0708 4 3 
3 see 0709 ELSE ; 
; $3 0710 $ 
: ; ° grit jewequnedes : 
; 32 $748 i when makin changes try to keep the following two CHSFILLs next to each other : 
3; 35 pete : because BLISS will only generate the code once and branch to it from 2 places : 
: 3 Or? igeeeeeeeee : 
5 1 3 
s 4 718 ! The area return was not on the end on of the Virtual Address 3 
: 338 0719 ! Space in PQ. So zero out the newly return pages, plus all 3 
; 339 0720 ! pointer, size and type fields of the free payes that where F 
3 ? i 1 appended (beacuse they were contiguous). : 
; ri} f § CHSFILL ( 0, .FREEPAGECFVP$W_SIZE) - 12, .FREEPAGE + 12 ); ; 
> 344 725 END : 
; £? $ ELSE : 
: 23 7 3 ! We are not going to try to contract the PO space. So clean up the ; 
3 8 34 ! pages returned. This will zero out the newly return pages, plus all 3 
: 9 730 ! pointer, size and type fields of other free pages that were appended. : 


K 11 
FREEP 16-Sep-1984 02:19: AX-11 Bliss-32 V4.0-74 P 
Vv O80 1 ~8ep-19 4 95:12:93 AT AACP SRETFREEDG 030% — 
0 731 ! 
i Ht ; CHSFILL ( 0, .FREEPAGECFVP$W_SIZE] - 12, .FREEPAGE + 12 ); 
2g 7 END; ! end of routine 


~EXTRN SYSSCNTREG, BUGS_ACPVAFAIL 


007¢ 00000 .ENTRY RET_FREE_PAGE, Save R2,R3,R4,R5,R6 : ; 

56 00006 CF 9 000¢ MOVAB FREE_PAGE_HEAD+4, R6 F : 

51 04 AC : 900 MOVL ADDR; RI : ; 

OA Al 0 B MOVB #1, 10(R1) : ; 
50 66 DO OO00F MOVL  FREE_PAGE_HEAD+4, FREEPAGE : ; 

3g FC As 9€ 00012 1$ MOVAB FREE PAGE HEAD, R2 : : 

5 50 1 90016 CMPL = FREEPAGE, "R : ; 

08 13 9001 BEQL 2$ : : 

50 1 01 0001B CMPL 1, FREEPAGE : : 

06 1A OOdIE BGTRU 2$ : ; 

50 04 AO DO 000 MOVL  4(FREEPAGE), FREEPAGE : : 

EC 11 00024 BRB 1$ : : 

53 DO 00 6 2$ MOVL §§FREEPAGE, NEXTPAGE : ; 

52 FC AG 9E 00089 MOVAB FREE _PAGE_HEAD, Re ; : 

52 53 D1 0002D CMPL NEXTPAGE, ~R2 ; : 

07 13 00030 BEQL 46s 3$ : : 

52 08 AO 3C 00032 MOVZWL 8(FREEPAGE), R2 : ; 

5 2¢ CO 00 6 ADDL2 2, NEXTPAGE : : 

51 53 D1 00039 3s: CMPL  §NEXTPAGE, R1 : F 

07 12 0003¢ BNEQ 4$ : ; 

08 Ad 08 Al A 00055 ADDW2 BRI), 8(FREEPAGE) : ; 
07 11 0004 BRB $ : ; 

60 61 OF 00045 4$ INSQUE (R1), (FREEPAGE) : ; 

50 04 AC p 90048 MOVL ADDR, FREEPA : ; 

53 08 Ad 3C 0004C 5$ MOVZWL 8(FREEPAGE), NEXTPAGE : ; 

53 20 rai) 90090 ADDL2  FREEPAGE, NEXTPA : ; 

60 53 D1 0005 CMPL  NEXTPAGE, (FREEPAGE) : : 

09 12 00056 BNEG 6$ F ; 

53 00 80 OF 00058 REMQUE @0(FREEPAGE), NEXTPAGE : ; 

08 Ad 08 a3 AO 0005C¢ ADDW2  8(NEXTPAGE), 8(FREEPAGE) : ; 
3D 08 Ac £9 00061 68: BLBC CONTRACT : : 

51 66 00 00065 MOVL FREE _PAGE_HEAD+4, ENDFREE : : 

3g 08 Al 3C 00068 MOVZWL S(ENDFREEY, R2 ; ; 

5 FF A241 9E O6¢ MOVAB  -1(R2)CENDFREEJ, NEXTPAGE : : 
00006 CF 33 D1 6 1 CMPL NEXTPAGE , LAST_P : : 
A 12 1 BNEQ 7 3 3 

00006 cf FF Al 9E 0007 MOVAB <-1(R1), LAST_PAGE : ; 
1 61 OF OO7E REMQUE (ENDFREE), ENDFREE : 3 

33 08 Al 3¢ 1 MOVZWL 8 (ENDFREES NEXTPAGE : 3 
00000200 8F C6 00085 DIVL2 #512, NEXTPAGE : : 

7E 1 7D 0008C OVO #1, -(SP) : ; 

: D4 O008F CLRL 0 = ¢ §P) ; 3 

53 DD 091 PUSHL NEXTPAGE : ; 

000000006 9F 04 FB 93 CALLS #4, @#SYSSCNTREG : : 
13 0 € 9A BLES RO. 8$ : 3 

FEFF 0009D BUGW : ; 

00 Os OF .WORD  <BUGS_ACPVAFAIL!4> : ; 

4 000A1 RET : ; 


FREEP 1b-5¢ Sep-1984 9:01 AxX-11 Blis Srae V4.0-74 Page 10 
Vor~080 1 =36071 38% 95:1 3:93 MTAACP. SRC} FREEPG.B32; ’ dS 
1 AO 3 A2 7$: MOVZWL 8 (FREEPAGE), R ; 0732 ; 
2} * 8 A sUeLe #12, Ri 3 H 
51 00 6E : C . MOVC #0, (SP), Li R1, 12¢(FREEPAGE) ; : 
80 8$: RET : 0734 : 
; Routine Size: 177 bytes, Routine Base: S$CODE$ + 007C ‘ 
; 354 0735 1 ; 
s 309 7 : 1 END ; 
: 23 7 1 ‘ 
3 738 0 ELUDOM : 
; PSECT SUMMARY ; 
: Name Bytes Attributes 
: SCODES 301 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
H Library Statistics 
Vee 2 ee ee ee Symbols -------- Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 4 0 1000 00:01.9 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:FREEPG/OBJ=OBJ$:FREEPG MSRC$:FREEPG/UPDATE=(ENHS$:FREEPG) 
Size: 301 code + 0 data bytes 
Run Time: 210.4 
Elapsed Time: :30.5 


Lines/CPU Min: 4265 
Lexemes/CPU-Min: 18655 
eneey Used: 110 pages 
; Compilation Complete 
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